home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU06.ARC / MEM MAP 5 < prev    next >
Encoding:
Text File  |  2019-04-13  |  11.4 KB  |  175 lines
  1. ║CM:TABLE 1.4
  2. ─410  ╟┼╘      ╟ET NEXT CHARACTER FROM A CHANNEL                ─3┴┴
  3. ─44┴  ╥╬─╟┼╘   ╟ET CHARACTER FROM DIRECT FILE                   ─3─┼ 
  4. ─455  ╥╬╟┼╘1   ╔NCREMENT ┬╒╞╘┴┬                                 ─3┼├
  5. ─457  ╥╬╟┼╘2   ╠OAD .┴ WITH DATA BYTE FROM ┬╒╞╘┴┬               ─3┼┼
  6. ─469  ╙┼╤╟┼╘   ╟ET CHARACTER FROM SEQ FILE                      ─400
  7. ─472  ╟┼╘6     ╘EST IF DIR LISTING                              ─409
  8. ─47─  ╟┼╘┼╥├   ╟ET ERROR CHANNEL                                ─414
  9. ─4┬7  ╬╪╘┬╒╞   ╥EAD NEXT BUFFER OF A FILE; FOLLOW LINK IN       ─44─
  10.                FIRST TWO BYTES
  11. ─4├┴  ─╥╘╥─    ─IRECT BLOCK READ ENTRY POINT                    ─460
  12. ─4├┼  ─╥╘╫╥╘   ─IRECT BLOCK WRITE ENTRY POINT                   ─464
  13. ─4─2  ─╥╘      ╥OUTINE FOR BLOCK READ/WRITE                     ─466
  14. ─4─┼  ╧╨╬╔╥─   ╧PEN INTERNAL READ CHANNEL                       ─475
  15. ─4┼┼  ╧╨╬╔╫╥   ╧PEN INTERNAL WRITE CHANNEL                      ─486
  16. ─4╞5  ╬╪─╥┬╦   ┴LLOCATE NEXT DIRECTORY BLOCK ON 18 AND MARK     ─48─
  17.                AS USED IN ┬┴═
  18. ─533  ╙┼╘╨╬╘   ╙ET NEW POINTER                                  ─4├8
  19. ─545  ╞╥┼╔├╚   ╞REE INTERNAL CHANNEL                            ─4─┴  
  20. ─553  ╟┼╘╨╬╘   ╥EAD THE ACTIVE BUFFER POINTER                   ─4┼8
  21. ─556  ╙┼╘─╔╥   ┴CTIVE BUFFER X2; ┬╒╞╘┴┬ .╪ TO DIR BUF POINTER   ─4┼┬
  22. ─561  ─╥─┬┘╘   ─IRECT READ BYTE; .┴=BYTE NUMBER TO READ         ─4╞6  ═
  23. ─571  ╙┼╘╩┬    ╙ET LAST JOB                                     ─506  
  24. ─578  ╙┼╘╩╧┬   ╙ET JOB UP AND CHECK ╘,╙                         ─50┼  ═
  25. ─5┴┼  ╘╙┼╥╥    ╔LLEGAL TRACK AND SECTOR                         ─54┴  ═
  26. ─5├0  ╘╙├╚╦    ╘RACK AND SECTOR CHECK                           ─55╞
  27. ─5─3  ╓╬┼╥╥    ╫RITE TO WRONG ─╧╙ VERSION ERROR                 ─572
  28. ─5┼7  ─╧╥┼┴─   ─O READ JOB; RETURN                              ─586  ═
  29. ─5┼┴  ─╧╫╥╔╘   ─O WRITE JOB; RETURN                             ─58┴  ═
  30. ─5┼├  ─╧╩╧┬    ─O JOB ROUTINE                                   ─58├
  31. ─5╞7  ╫┴╘╩╧┬   ╫AIT UNTIL JOB DONE THEN RETURN                  ─599
  32. ─618  ╙┼╘╚─╥   ╙ET HEADER OF ACTIVE BUFFER OF CURRENT ╠╔╬─╪     ─6─0
  33. ─628  ╟┼╘╘&╙   ╟ET TRACK & SECTOR FOR BUFFER # IN .╪              -   ╬
  34. ─632  ┴──╞╔╠   ┴DD FILE TO DIRECTORY                            ─6┼4
  35. ─6╞─  ╧╨┼╬     ╧PEN CHANNEL FROM BUS; PARSE THE INPUT STRING    ─7┬4
  36.                THAT IS SENT AS AN OPEN DATA CHANNEL; LOAD OR 
  37.                SAVE; ALLOCATE CHANNELS; SEARCH DIRECTORY 
  38.                FOR THE FILENAME CONTAINED IN THE STRING
  39. ─718  ╧╨02     ╠OAD LAST PROGRAM                                ─7├╞
  40. ─736  ┼╬─╥─    ╘ERMINATE ROUTINE                                ─7┼┬
  41. ─73┼  ╧╨021    ╠OAD DIRECTORY                                   ─7╞3
  42. ─74┴  ╧╨04     ╧PEN DIRECTORY AS SEQ FILE                       ─7╞╞
  43. ─760  ╧╨41     ╧PEN '#' DIRECT ACCESS FILE                      ─815
  44. ─767  ╧╨0415   ╨ROGRAM FILE TYPE                                ─81├
  45. ─787  ╧╨05     ╙YNTAX ERROR                                     ─837
  46. ─823  ╧╨81     ├HECK FOR REPLACE (@)                            ─8┼1
  47. ─832  ╧╨815    ┬AD FILENAME ERROR                               ─8╞0
  48. ─837  ╧╨82     ╙AVE/WRITE WITH REPLACE (@)                      ─8╞5
  49. ─884  ╧╨90     ╧PEN READ & LOAD                                 ─940
  50. ─88┼  ╧╨95     ╞ILE NOT OPEN ERROR                              ─945
  51. ─8┴╞  ╧╨115    ╘YPE MISMATCH ERROR                              ─965
  52. ─8┼4  ╧╨╥┼┴─   ╧PEN A READ FILE                                 ─9┴0
  53. ─924  ╧╨╫╥╔╘   ╧PEN A WRITE FILE                                ─9┼3
  54. ─940  ╧╨╞╔╬    ╧╨┼╬ FINISHED                                    ─9┼╞
  55. ─94┬  ├╦╘═     ├HECK MODE OR TYPE FILE                          ─┴09
  56. ─95┼  ├╦═2     ├HECK MODE                                       ─┴1├
  57. ─960  ├╦╘      ├HECK TYPE                                       ─┴1┼
  58. ─96┬  ┴╨╨┼╬─   ┴PPEND FILE                                      ─┴2┴
  59. ─997  ╠╧┴─╔╥   ╠OAD DIRECTORY                                   ─┴55  ═
  60. ─┴15  ├╠╧╙┼    ├LOSE THE FILE ASSOCIATED WITH SEC ADDRESS       ─┴├0
  61. ─┴28  ├╠╙10    ├LOSE DIRECTORY FILE                             ─┴─4
  62. ─┴3─  ├╠╙15    ┼RROR; FREE INTERNAL CHANNEL                     ─┴┼9
  63. ─┴40  ├╠╙┴╠╠   ├LOSE ALL FILES                                  ─┴┼├
  64. ─┴53  ├╠╙25    ┼RROR; FREE INTERNAL CHANNEL                     ─┴╞╞  
  65. ─┴56  ├╠╙├╚╬   ╠OCATE & CLOSE SPECIFIC FILE TYPE                ─┬02
  66. ─┴80  ├╠╙╥┼╠   ├LOSE RELATIVE FILE                              ─┬2├
  67. ─┴┬8  ├╠╙╫╥╘   ├LOSE WRITE FILE                                 ─┬62
  68. ─┬00  ├╠╙─╔╥   ─IRECTORY CLOSE ON OPEN WRITE FILE               ─┬┴5  ═
  69. ─┬┴5  ╧╨╬╥├╚   ╧PEN READ CHANNEL WITH 2 BUFFERS                 ─├46  ═
  70. ─┬╞8  ╧╥╧╫     ╙ET NEXT RECORD POINTER TO START OF              ─├98   
  71.                SIDE SECTOR BUFFER
  72. ─├18  ╔╬╔╘╨    ╔NITIALIZE VARIABLES FOR OPEN CHANNEL            ─├┬6
  73. ─├3┼  ╧╨╬╫├╚   ╧PEN WRITE CHANNEL WITH 2 BUFFERS                ─├─┴
  74. ─├╞5  ╨╒╘╙╙    ╨UT BYTE INTO SIDE SECTOR                        ──8─
  75. ─├╞┼  ╙├╞╠╟    ╙ET/CLEAR FLAGS                                  ──95  ═
  76. ─├╞╞  ╙┼╘╞╠╟   ╙ET FLAG                                         ──97
  77. ──05  ├╠╥╞╠╟   ├LEAR FLAG                                       ──9─
  78. ──10  ╘╙╘╞╠╟   ╘EST FLAG                                        ──┴6
  79. ──16  ╘╙╘╫╥╘   ╘EST WRITE                                       ──┴┬
  80. ──22  ╘╙╘├╚╬   ╘EST FOR ACTIVE FILES FROM ╠╔╬─╪ TABLE           ──┬7
  81. ──5╞  ╟┼╘┴├╘   ╟ET ACTIVE BUFFER NUMBER                         ─╞93
  82. ──6┴  ╟┴╞╠╟╙   ╟ET ACTIVE BUFFER NUMBER; STORE FLAGS            ─╞9┼
  83. ──83  ╟┼╘╔╬┴   ╟ET INACTIVE CHANNEL BUFFER NUMBER               ─╞┬7
  84. ──8┼  ╨╒╘╔╬┴   ╨UT INACTIVE BUFFER                              ─╞├2
  85. ──9├  ╙├╥╒┬    ╫RITE OUT BUFFER IF DIRTY                        ──╞1
  86. ──┴8  ╙┼╘╠╬╦   ╨UT ╘,╙ INTO BUFFER                              ──╞─
  87. ──┬7  ╟┼╘╠╬╦   ╟ET LINK FROM BUFFER INTO ╘,╙                    ─┼0├
  88. ──├4  ╬╒╠╠╬╦   ╙ET TR LINK=0 & SECT LINK=LAST NON-ZERO CHAR     ─┼19
  89. ───7  ╙┼╘00    ╙ET UP POINTER TO BUFFER                         ─┼2┬
  90. ──┼6  ├╒╥┬╠╦   ╥EAD TRACK, SECTOR FROM HEADER                   ─┼3┬
  91. ──┼9  ╟┼╘╚─╥   ╥EAD TRACK, SECTOR FROM HEADER                   ─┼3┼  ═
  92. ──╞┴  ╫╥╘┴┬    ╙ET UP FOR WRITE IN JOB QUEUE                    ─┼50
  93. ──╞┼  ╥─┴┬     ╙ET UP FOR READ IN JOB QUEUE                     ─┼57  ═
  94. ─┼02  ╫╥╘╧╒╘   ╙ET UP FOR WRITE IN JOB QUEUE                    ─┼5┼  ═
  95. ─┼08  ╫╥╘╙╙    ╙ET UP FOR WRITE IN JOB QUEUE                    ─┼6├
  96. ─┼0├  ╥─╔╬     ╙ET UP FOR READ IN JOB QUEUE                     ─┼65  ═
  97. ─┼32  ╥─╠╬╦    ╙ET TRACK/SECTOR FROM LINK IN BUFFER             ─┼95
  98. ─┼42  ╞╬─╥┼╠   ╞IND RELATIVE FILE                               ├┼0┼
  99. ─┼63  ═╒╠╨╠┘   ═ULTIPLY; RESULT=REC NUMBER X REC SIZE +         ├┼2├
  100.                REC POINTER
  101. ─┼┴9  ─╔╓254   ─IVIDE BY 254                                    ├┼6┼
  102. ─┼┴├  ─╔╓120   ─IVIDE BY 120                                    ├┼71
  103. ─┼┬4  ─╔╓100   ─IVIDE BY 120                                    ├┼77
  104. ─┼├2  ─╔╓150   ─IVIDE BY 120                                    ├┼87
  105. ─┼├4  ─╔╓200   ─IVIDE BY 256                                    ├┼89
  106. ─┼─┼  ─╔╓300   ─IVIDE                                           ├┼┴3
  107. ─┼┼┬  ─╔╓400   ─IVIDE                                           ├┼┬0
  108. ─┼╞┴  ─╔╓500   ─IVIDE                                           ├┼┬╞
  109. ─╞11  ─╔╓600   ─IVIDE                                           ├┼─6  
  110. ─╞13  ─╔╓700   ─IVIDE                                           ├┼─8
  111. ─╞14  ┌┼╥╥┼╙   ┌ERO RESULTS                                     ├┼─9
  112. ─╞1─  ┴├├╪4    ═ULTIPLY ACCUMULATOR X4                          ├┼┼2
  113. ─╞20  ┴├├╪2    ═ULTIPLY ACCUMULATOR X2                          ├┼┼5
  114. ─╞28  ┴──╥┼╙   ┴DD ACCUMULATOR TO RESULT; RESULT = RESULT       ├┼┼─
  115.                + ACCUM + 1,2,3
  116. ─╞35  ┬╧╘╧┬╧   ╘RANSFER BYTES FROM ONE BUFFER TO OTHER          ─┼┴5  ═
  117. ─╞53  ├╠╥┬╒╞   ├LEAR BUFFER GIVEN                               ─┼├1  ═
  118. ─╞63  ╙╙╙┼╘    ╙ET SIDE SECTOR POINTER TO ZERO                  ─┼─2
  119. ─╞6─  ╙╙─╔╥    ╙ET ─╔╥┬╒╞ WITH CURRENT SIDE SECTOR POINTER      ─┼─├
  120. ─╞7┬  ╙┼╘╙╙╨   ╙ET ─╔╥┬╒╞ & ┬╒╞╘┴┬ WITH CURRENT SIDE SECTOR     ─┼┼9
  121.                POINTERS
  122. ─╞8┴  ╙╙╨╧╙    ╨OSITION SIDE SECTOR & ┬╒╞╘┴┬ TO ╙╙╬╒═           ─┼╞8
  123. ─╞┴┼  ╔┬╥─     ╔NDIRECT BLOCK READ                              ─╞1┬
  124. ─╞┴╞  ╔┬╫╘     ╔NDIRECT BLOCK WRITE                             ─╞21
  125. ─╞┬2  ╔┬╧╨     ├ODE FOR INDIRECT BLOCK WRITE                    ─╞25
  126. ─╞─2  ╟╙╙╨╬╘   ╟ET SIDE SECTOR POINTER                          ─╞45
  127. ─╞─┴  ╙├┴╠1    ├ALCULATE SIDE SECTOR                            ─╞4├
  128. ─╞┼┴  ┴──╘12   ├ALCULATE SIDE SECTOR                            ─╞5├
  129. ─╞╞3  ┴──╥╘╙   ├ALCULATE SIDE SECTOR                            ─╞65  
  130. ─╞╞4  ╙╙╘┼╙╘   ╘EST ╙╙╬╒═ & ╙╙╔╬─ FOR RESIDENCE & RANGE         ─╞66
  131. ┼021  ╬╪╘╥┼├   ╟O TO NEXT RELATIVE RECORD                       ─╞─0
  132. ┼05╞  ╬╪╧╒╘    ╬EXT RELATIVE RECORD                             ┼009
  133. ┼094  ╬╥┬╒╞    ╥EAD INTO BUFFER                                 ┼03├
  134. ┼0─4  ╥┼╠╨╒╘   ╫RITE RELATIVE DATA TO BUFFER                    ┼07├
  135. ┼103  ╫╥╘╥┼╠   ╫RITE RELATIVE RECORD                            ┼0┴┬  ═
  136. ┼150  ├╠╥┼├    ╨UT ZEROS INTO BALANCE OF REL RECORD BUFFER      ┼0╞3
  137. ┼162  ╙─╔╥╘┘   ╙ET DIRTY FLAG                                   ┼105
  138. ┼172  ├─╔╥╘┘   ├LEAR DIRTY FLAG                                 ┼115
  139. ┼17─  ╥─╥┼╠    ╥EAD RELATIVE RECORD                             ┼120  ═ 
  140. ┼1├┼  ╙┼╘╠╙╘   ╙ET LAST CHARACTER IN RECORD                     ┼16┼
  141. ┼212  ╞╬─╠╙╘   ╞IND LAST CHARACTER IN RECORD                    ┼1┬2
  142. ┼22┬  ╙╙┼╬─    ╨OSITION SIDE SECTOR & ┬╒╞╘┴┬ TO END OF LAST     ┼1├┬  
  143.                RECORD
  144. ┼263  ┬╥┼┴╦    ╔LLEGAL SYSTEM TRACK OR SECTOR ERROR             ┼202
  145. ┼268  ╥┼├╧╥─   ╨OSITION REL POINTER TO GIVEN RECORD NUMBER      ┼207
  146.                OR LAST RECORD IF OUT OF RANGE
  147. ┼2─┴  ╨╧╙╔╘╬   ╨OSITION REL DATA BLOCK INTO ACTIVE BUFFER       ┼275
  148.                & NEXT BLOCK INTO INACTIVE BUFFER
  149. ┼300  ╨╧╙┬╒╞   ╨OSITION PROPER DATA BLOCKS INTO BUFFER          ┼29├  ═
  150. ┼33┼  ┬╚┼╥┼    ├HECK IF REQUIRED BLOCK IN BUFFER                ┼2─0  ═
  151. ┼34╞  ╬╒╠┬╒╞   ╙ET NULL RECORD IN ACTIVE BUFFER FOR EXTENSION   ┼2┼2
  152. ┼373  ┴──╬╥    ┴DD RECORD SIZE WITH NEXT RECORD & LEAVE IN      ┼304
  153.                ACC; IF C=1 THEN BUF BOUNDARY HAS BEEN CROSSED
  154. ┼38─  ┴──╥┼╠   ┴DD BLOCKS TO RELATIVE FILE                      ┼31├
  155. ┼3┴─  ┴──╥1    ┴DD BLOCKS TO RELATIVE FILE                      ┼33┬
  156. ┼4├3  ╬┼╫╙╙    ╟EN NEW SIDE SECTOR AND FIX OLD SIDE SECTOR      ┼44┼
  157. ┼574  ┼╥╥╘┴┬   ┼RROR MESSAGE TABLE                              ┼4╞├  ═
  158. ┼64┬  ╘╧╦╘┴┬   ╘ABLE OF TOKENIZED WORDS                         ┼5─5
  159. ┼67╞  ┼╘┼╬─    ┼ND OF ERROR TABLE                               ┼609
  160. ┼680  ┼╥╥╧╥    ├ONTROLLER ERROR ENTRY                           ┼60┴  ═
  161. ┼6┬7  ├═─┼╥2   ├OMMAND ERROR                                    ┼645
  162. ┼6╞1  ╘╠╦┼╥╥   ╘ALKER ERROR RECOVERY                            ┼680
  163. ┼6╞9  ╠╙╬┼╥╥   ╠ISTENER ERROR RECOVERY                          ┼688
  164. ┼70┬  ╚┼╪─┼├   ├ONVERT HEX TO BCD                               ┼69┬
  165. ┼71├  ┬├──┼├   ├ONVERT BCD TO DECIMAL                           ┼6┴┬
  166. ┼725  ┬├2─     ├ONVERT BCD TO ┴╙├╔╔                             ┼6┬4
  167. ┼72─  ╧╦┼╥╥    ╘RANSFER ERROR MESSAGE TO ERROR BUFFER           ┼6┬├
  168. ┼738  ┼╥╥═╙╟   ┼RROR MESSAGE IN BUFFER                          ┼6├7
  169. ┼778  ┼╥═╧╓┼   ═OVE ERROR MESSAGE FROM ┼╥╥╘┴┬ TO ┼╥╥┬╒╞         ┼706  ═
  170. ┼7─9  ┼┴─╓1    ┼RROR ADVANCE AND CHECK                          ┼767
  171. ┼7╞1  ╨┼┌╥1    ╞LASH ERROR ╠┼─ TWICE                              -   ╬
  172. ┼7╞4  ╨┼┌╥2    ╞LASH ERROR ╠┼─ THREE TIMES                        -   ╬
  173. ┼7╞7  ╨┼┌╥0    ╞LASH ╠┼─ ONCE TO SIGNAL ERROR                   ┼┴6┼  ╥╒
  174. ║NX:TABLE 1.5
  175.